Imports System
Imports Microsoft.VisualBasic
  Partial Class logInMobile_aspx_vb
    Inherits System.Web.UI.Page
    Public Sub Page_Load(_sender As Object, _e As EventArgs)
        If (Request.QueryString("do")) = Nothing Then
            Response.Write("<html>")
            Response.Write("<head>")
            Response.Write("<title>Fragus Technologie Systems - Logga in</title>")
            Response.Write("<link rel='stylesheet' href='style.css'>")
            Response.Write("</head>")
            Response.Write("<body bgcolor='#f0f0f0' onLoad=""document.forms[0].elements[0].focus();"">")
            Response.Write("<form method='post' action='logIn.aspx?mobileGUI=1'>")
            Response.Write("<table cellspacing='0' cellpadding='0' width='100%'>")
            Response.Write("<tr>")
            Response.Write("<td width='100%' class='headline'>MOBILE LOGIN TO FLS<hr></td>")
            Response.Write("</tr>")
            Response.Write("<tr>")
            Response.Write("<td>")
            Response.Write("<table cellpadding='2' cellspacing='2' width='100%'>")
            Response.Write("<tr><td class='formBold'>Username:&nbsp; </td><td align='left'><input type='text' name='username' id='username' style='width: 100%;'></td></tr>")
            Response.Write("<tr><td class='formBold'>Password:&nbsp; </td><td align='left'><input type='password' name='password' id='password' style='width: 100%;'></td></tr>")
            Response.Write("<tr><td align='right' colspan='2'><input type='submit' value='Login &raquo;'></td></tr>")
            Response.Write("</table>")
            Response.Write("</td>")
            Response.Write("</tr>")
            Response.Write("<tr><td><hr></td></tr>")
            Response.Write("</table>")
            Response.Write("</form>")
            Response.Write("</body>")
            Response.Write("</html>")
        End If
    End Sub


  End Class
